home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / TUNES.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  66 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1996-02-08 ╟─╖
  5.  │  │ FILE NAME   TUNES   .DMO ║                      ╘════════════════─ ║ ║
  6.  │  │                          ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10.  
  11.    See SOUNDS.DMO for all the goodies.......
  12.  
  13. $endif
  14.  
  15. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  16. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  17. $SOUND 1024
  18. $INCLUDE "DAS-NB03.INC"
  19. $INCLUDE "PUBLICS.INC"
  20.  
  21. COLOR 7, 0
  22. CLS
  23.  
  24. ? " (01)  10 Little Indians[9.4]        (22)  Little Tea Pot[12.2]
  25. ? " (05)  A Tisket A Tasket[8.1]        (37)  London Bridge
  26. ? " (26)  Addams Family                 (45)  Love Story
  27. ? " (25)  Anvil[18]                     (38)  Maple Leaf Rag
  28. ? " (27)  Auld Lang Syne                (02)  Mary Had A Little Lamb[6.8]
  29. ? " (17)  Battle Hymn[34.7]             (10)  Macho[10]
  30. ? " (29)  Beverly Hillbillies           (39)  My Darling Clementine
  31. ? " (28)  Beverly Hills Cop             (03)  OL' MacDonald[5.5]
  32. ? " (24)  Bouree[12]                    (09)  Old Smoky[8.5]
  33. ? " (16)  Brahms Lullaby[10.9]          (40)  Ramblin' Wreck
  34. ? " (23)  Brother John[12.2]            (07)  Row Row Row Your Boat[6.7]
  35. ? " (20)  Daisy Daisy[7]                (14)  So Long[5.7]
  36. ? " (30)  Deck the Halls                (18)  Star Spangle[43.6]
  37. ? " (13)  Dirge[3.3]                    (41)  The Entertainer
  38. ? " (31)  Flight of the Bumblebee       (06)  This Is The Way[7.25]
  39. ? " (32)  Folk Song                     (15)  This Old Man[10.1]
  40. ? " (21)  Greek Calendar[7.3]           (08)  Twinkle Twinkle[9.6]
  41. ? " (33)  I'm A Little Teapot           (42)  Violin Sonata #6
  42. ? " (04)  Ittsy Bittsy Spider[6.7]      (43)  Well-Tempered Clavier
  43. ? " (34)  James Bond Theme              (44)  William Tell Overture
  44. ? " (35)  Jeopardy Theme                (12)  Working On The Rr<Long>[19.3]
  45. ? " (19)  Johnny Comes Marching[19.2]   (11)  Working On The Rr<Short>[3.4]
  46. ? " (36)  Leave it to Beaver
  47.  
  48. Foreground% = 0
  49. DO
  50.   LOCATE 25, 1, 0
  51.   PRINT "ENTER ANY 2 DIGITS (00) TO QUIT:    ";
  52.   LOCATE 25, 34, 1
  53.   DO : G$ = INKEY$ : LOOP UNTIL LEN(G$) = 0
  54.   DO
  55.     WHILE NOT INSTAT : WEND
  56.     G$ = G$ + INKEY$
  57.     LOCATE 25, 34 : PRINT G$;
  58.   LOOP UNTIL LEN( G$ ) = 2
  59.   SOUND 37, 0
  60.   Which% = VAL( G$ )
  61.   IF Which% = 0 THEN EXIT LOOP
  62.   IF Which% < 46 THEN PlayTune Which%, Foreground%
  63. LOOP
  64.  
  65. CLS
  66.